home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD59615212000.psc / Mixed API Demo / modCursorPosition.bas < prev    next >
Encoding:
BASIC Source File  |  2000-05-19  |  531 b   |  24 lines
  1. Attribute VB_Name = "modCursorPosition"
  2. Option Explicit
  3.  
  4. '//Get Cursor Position API Declaration
  5. Public Declare Function GetCursorPos Lib "user32" (lpPoint _
  6. As POINTAPI) As Long
  7.  
  8. Public MousePos As POINTAPI
  9. Public XPos As Integer
  10. Public YPos As Integer
  11.  
  12. '//Get Cursor Position Type
  13. Public Type POINTAPI
  14.   X As Long
  15.   Y As Long
  16. End Type
  17.  
  18.  
  19. Public Sub GetCursorPosition()
  20.     GetCursorPos MousePos ' Get Co-ordinates
  21.     XPos = MousePos.X ' Get X co-ordinates
  22.     YPos = MousePos.Y ' Get Y co-ordinates
  23. End Sub
  24.